**Zilis_Political Behavior
**How Identity Politics Polarizes Rule of Law Opinions


*Main manuscript
*Study 1
use "/Users/mazi223/Desktop/Zilis_Study 1.dta"


*Table 2, Model 1
reg legitimacyScale i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale, beta
	*beta - variables standardized to a mean of 0 and st dev of 1
	
*Figure 1
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, graphregion(color(white)) ytitle("Predicted") ciopts(recast(rarea) lw(.1)) ci1opts(fcolor(maroon%50) lcolor(maroon)) ci2opts(fcolor(navy%50) lcolor(navy)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Left                                       Predispositions                                       Right") title("Legitimacy Index") ylabel(, glcolor(gs15)) addplot(hist leftrigh, freq color(gs13) lcolor(gs13) w(.25) yaxis(2) yscale(axis(2) r(0 3500) off)) legend(order(0 "Conservative group" 1 " " 2 "Liberal group" 3 " " 4 " ")) xscale(range(0(1)12)) xlabel(minmax, notick) xline(0 1 2 3 4 5 6 7 8 9 10 11 12, lcolor(gs15))



*Table 2, Model 2
reg acceptanceScale i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale, beta

*Figure 2
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, graphregion(color(white)) ytitle("Predicted") plot(, label("Conservative group" "Liberal group")) ciopts(recast(rarea) lw(.1)) ci1opts(fcolor(maroon%50) lcolor(maroon)) ci2opts(fcolor(navy%50) lcolor(navy)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) ylabel(, glcolor(gs15))

clear

*Study 2
use "/Users/mazi223/Desktop/Zilis_Study 2.dta"

*Table 3, Model 1
reg legitimacyScale i.condition_liberal##c.leftright age female black hispanic knowledgeScale, beta
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, graphregion(color(white)) ytitle("Predicted") ciopts(recast(rarea) lw(.1)) ci1opts(fcolor(maroon%50) lcolor(maroon)) ci2opts(fcolor(navy%50) lcolor(navy)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Left                                       Predispositions                                       Right") title("Legitimacy Index") ylabel(, glcolor(gs15)) addplot(hist leftrigh, freq color(gs13) lcolor(gs13) w(.25) yaxis(2) yscale(axis(2) r(0 2500) off)) xlabel(minmax, notick labcolor(white)) xline(0 1 2 3 4 5 6 7 8 9 10 11 12, lcolor(gs15)) plot(, label("Conservative group" "Liberal group"))


*Table 3, Model 2
reg acceptanceScale i.condition_liberal##c.leftright age female black hispanic knowledgeScale, beta
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, graphregion(color(white)) ytitle("Predicted") plot(, label("Conservative group" "Liberal group")) ciopts(recast(rarea) lw(.1)) ci1opts(fcolor(maroon%50) lcolor(maroon)) ci2opts(fcolor(navy%50) lcolor(navy)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) ylabel(, glcolor(gs15))

clear


*Appendix A
use "/Users/mazi223/Desktop/Zilis_Study 1.dta"

factor acceptance_item1 acceptance_item2 acceptance_item3 acceptance_item4
factor legitimacy_item1 legitimacy_item2 legitimacy_item3 legitimacy_item4 legitimacy_item5 legitimacy_item6 legitimacy_item7
factor legitimacy_item1 legitimacy_item2 legitimacy_item3 legitimacy_item4 legitimacy_item5 legitimacy_item6 legitimacy_item7 acceptance_item1 acceptance_item2 acceptance_item3 acceptance_item4

*Table A1
tab age
tab race
tab hispanic
tab female

hist leftright, graphregion(color(white)) xtitle(" ") title("Predispositions") percent color(maroon%50) bin(13) xlabel(0.43 `""Very lib" "strong D""' 6 `""Moderate /" "Mixed""' 11.5 `""Very cons" "strong R""', labsize(small) notick)


*Table A2, Model 1
reg legitimacyScale i.groupexperiment_conditionlib##c.leftright##c.knowledgeScale age female black hispanic

*Figure A2
margins, dydx(group) at(leftright=(0(1)12) knowledge=(0 3))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Marginal effect" "of liberal group") legend(order(1 "Knowledge low" 2 "Knowledge high")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Effects on Legitimacy" "from 3-Way Interaction") ylabel(, glcolor(gs15)) yline(0, lcolor(black) lpattern(dash))

*Table A2, Model 2
reg acceptanceScale i.groupexperiment_conditionlib##c.leftright##c.knowledgeScale age female black hispanic

*Figure A3
margins, dydx(group) at(leftright=(0(1)12) knowledge=(0 3))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Marginal effect" "of liberal group") legend(order(1 "Knowledge low" 2 "Knowledge high")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Effects on Acceptance" "from 3-Way Interaction") ylabel(, glcolor(gs15)) yline(0, lcolor(black) lpattern(dash))

*Table A3
ttest acceptanceScale if leftright<6, by(groupexperiment_conditionlib)
ttest acceptanceScale if leftright>6, by(groupexperiment_conditionlib)
ttest legitimacyScale if leftright<6, by(groupexperiment_conditionlib)
ttest legitimacyScale if leftright>6, by(groupexperiment_conditionlib)

*Table A4
reg acceptance_item1 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("SPredispositions") title("Support for Ruling") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg acceptance_item2 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings Should Not Be Challenged") ylabel(, glcolor(gs15))
graph save file2.gph, replace

reg acceptance_item3 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings are Final Word") ylabel(, glcolor(gs15))
graph save file3.gph, replace

reg acceptance_item4 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings Should be Implemented") ylabel(, glcolor(gs15))
graph save file4.gph, replace

*Figure A4
grc1leg file1.gph file2.gph file3.gph file4.gph, legendfrom(file1.gph) graphregion(color(white)) ycommon

*Table A5
reg acceptanceScale i.experimentabortion##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) experi=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Prolife group" 2 "Prochoice group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg acceptanceScale i.experimentreligious##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) experi=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Christian group" 2 "Muslim group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") ylabel(, glcolor(gs15))
graph save file2.gph, replace

reg acceptanceScale i.experimentspending##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) experi=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Big business" 2 "Labor union")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") ylabel(, glcolor(gs15))
graph save file3.gph, replace

*Figure A5
graph combine file1.gph file2.gph file3.gph, graphregion(color(white)) ycommon

*Table A6
reg legitimacy_item1 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Control Court") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg legitimacy_item2 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Less Independent") ylabel(, glcolor(gs15))
graph save file2.gph, replace

reg legitimacy_item3 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Remove Justices") ylabel(, glcolor(gs15))
graph save file3.gph, replace

reg legitimacy_item4 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Like Other Politicians") ylabel(, glcolor(gs15))
graph save file4.gph, replace

reg legitimacy_item5 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Do Away with Court") ylabel(, glcolor(gs15))
graph save file5.gph, replace

reg legitimacy_item6 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Too Mixed Up in Politics") ylabel(, glcolor(gs15))
graph save file6.gph, replace

reg legitimacy_item7 i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Reduce Jurisdiction") ylabel(, glcolor(gs15))
graph save file7.gph, replace

*Figure A6
grc1leg file1.gph file2.gph file3.gph file4.gph file5.gph file6.gph file7.gph, legendfrom(file1.gph) graphregion(color(white)) ycommon row(2)

*Table A7
reg legitimacyScale i.experimentabortion##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) experi=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Prolife group" 2 "Prochoice group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Legitimacy Index") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg legitimacyScale i.experimentreligious##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) experi=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Christian group" 2 "Muslim group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Legitimacy Index") ylabel(, glcolor(gs15))
graph save file2.gph, replace

reg legitimacyScale i.experimentspending##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) experi=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Big business" 2 "Labor union")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Legitimacy Index") ylabel(, glcolor(gs15))
graph save file3.gph, replace

*Figure A7
graph combine file1.gph file2.gph file3.gph, graphregion(color(white)) ycommon


*To create Figure A8
reg legitimacyScale i.experimentabortion##c.leftright##c.knowledgeScale age female black hispanic
margins, dydx(exp) at(leftright=(0(1)12) knowledge=(0 3))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Marginal effect") legend(order(1 "Know lo" 2 "Know hi")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Free speech condition") ylabel(, glcolor(gs15)) yline(0, lcolor(black) lpattern(dash))
graph save file1.gph, replace

reg legitimacyScale i.experimentreligious##c.leftright##c.knowledgeScale age female black hispanic
margins, dydx(exp) at(leftright=(0(1)12) knowledge=(0 3))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Marginal effect") legend(order(1 "Know lo" 2 "Know hi")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Religious freedom condition") ylabel(, glcolor(gs15)) yline(0, lcolor(black) lpattern(dash))
graph save file2.gph, replace

reg legitimacyScale i.experimentspending##c.leftright##c.knowledgeScale age female black hispanic
margins, dydx(exp) at(leftright=(0(1)12) knowledge=(0 3))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Marginal effect") legend(order(1 "Know lo" 2 "Know hi")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Campaign spending condition") ylabel(, glcolor(gs15)) yline(0, lcolor(black) lpattern(dash))
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, graphregion(color(white)) ycommon row(1)

*Table A8
reg scLegalInstitution i.groupexperiment_conditionlib##c.leftright age female black hispanic knowledgeScale

*Figure A9
margins, at(leftright=(0(1)12) group=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) recast(line) plot1opts(color(maroon)) plot2opts(color(navy)) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings Based on Legal Factors") ylabel(, glcolor(gs15))

*Table A9
reg legitimacyScale i.groupexperiment_conditionlib##c.leftright
reg acceptanceScale i.groupexperiment_conditionlib##c.leftright

clear

*Appendix B
use "/Users/mazi223/Desktop/Zilis_Study 2.dta"

*Table B2
tab age
tab race
tab hispanic
tab female

*Figure B1
hist leftright, graphregion(color(white)) xtitle(" ") title("Predispositions") percent color(maroon%50) bin(13) xlabel(0.43 `""Very lib" "strong D""' 6 `""Moderate /" "Mixed""' 11.5 `""Very cons" "strong R""', labsize(small) notick)

*To create Figure B2
reg acceptance_item1 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Support for Ruling") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg acceptance_item2 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings Should Not Be Challenged") ylabel(, glcolor(gs15))
graph save file2.gph, replace

reg acceptance_item3 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings are Final Word") ylabel(, glcolor(gs15))
graph save file3.gph, replace

reg acceptance_item4 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Rulings Should be Implemented") ylabel(, glcolor(gs15))
graph save file4.gph, replace

grc1leg file1.gph file2.gph file3.gph file4.gph, legendfrom(file1.gph) graphregion(color(white)) ycommon


*To create Figure B3
reg acceptanceScale i.condition_liberal##c.leftright age female black hispanic knowledgeScale if condition_group=="prochoice"|condition_group=="prolife"
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Prolife group" 2 "Prochoice group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg acceptanceScale i.condition_liberal##c.leftright age female black hispanic knowledgeScale if condition_group=="christian"|condition_group=="muslim"
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Christian group" 2 "Muslim group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Acceptance Index") ylabel(, glcolor(gs15))
graph save file2.gph, replace

graph combine file1.gph file2.gph, graphregion(color(white)) ycommon row(1)


*To create Figure B4
reg legitimacy_item1 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Control Court") ylabel(, glcolor(gs15))
graph save file1.gph, replace

reg legitimacy_item2 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Less Independent") ylabel(, glcolor(gs15))
graph save file2.gph, replace

reg legitimacy_item3 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Remove Justices") ylabel(, glcolor(gs15))
graph save file3.gph, replace

reg legitimacy_item4 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Like Other Politicians") ylabel(, glcolor(gs15))
graph save file4.gph, replace

reg legitimacy_item5 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Do Away with Court") ylabel(, glcolor(gs15))
graph save file5.gph, replace

reg legitimacy_item6 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Too Mixed Up in Politics") ylabel(, glcolor(gs15))
graph save file6.gph, replace

reg legitimacy_item7 i.condition_liberal##c.leftright age female black hispanic knowledgeScale
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Conservative group" 2 "Liberal group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Reduce Jurisdiction") ylabel(, glcolor(gs15))
graph save file7.gph, replace

grc1leg file1.gph file2.gph file3.gph file4.gph file5.gph file6.gph file7.gph, legendfrom(file1.gph) graphregion(color(white)) ycommon row(2)

*To create Figure B5
reg legitimacyScale i.condition_liberal##c.leftright age female black hispanic knowledgeScale if condition_group=="prochoice"|condition_group=="prolife"
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Prolife group" 2 "Prochoice group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Legitimacy Index") ylabel(, glcolor(gs15))
graph save file1.gph, replace
																													   
reg legitimacyScale i.condition_liberal##c.leftright age female black hispanic knowledgeScale if condition_group=="christian"|condition_group=="muslim"
margins, at(leftright=(0(1)12) condition_liberal=(0 1))
marginsplot, xlabel(0 " " 1 "Left" 2 " " 3 " " 4 " " 5 " " 6 " " 7 " " 8 " " 9 " " 10 " " 11 "Right" 12 " ", labsize(small) notick) graphregion(color(white)) ytitle("Predicted") legend(order(1 "Christian group" 2 "Muslim group")) ciopts(recast(rarea) lw(0)) ci1opts(fcolor(maroon%50)) ci2opts(fcolor(navy%50)) plot1opts(color(maroon)) plot2opts(color(navy)) recast(line) xlabel(, grid glcolor(gs15)) xtitle("Predispositions") title("Legitimacy Index") ylabel(, glcolor(gs15))
graph save file2.gph, replace

graph combine file1.gph file2.gph, graphregion(color(white)) ycommon row(1)


*Table B4
reg scconservatism i.condition_liberal leftright age female black hispanic knowledgeScale

clear



